0 POKE808,225:GOTO10
1 @L:PRINT"[147]";:LIST100-1000
2 @P:PRINT"[147]";:LIST4000-4900
10 POKE53280,0:POKE53281,0
20 PRINT"[147][158]    *** SP0256 AL2 PHONEM EDITOR ***
100 [129]I[178]49152[164]49328:[135]A:[151]I,A:[130]
110 [153]"TEST...ON":[158]49152
120 [129]I[178]0[164]800:[130]
130 :
140 [153]"OPENGEBEN SIE DIE ZAHLENFOLGE EIN.":[141]2000
150 [141]3000:[141]4000:[158]49152
1000 [153]"":[137]150
1100 [131] 76, 5, 192, 133, 192, 120, 169, 58, 141, 20
1101 [131] 3, 169, 192, 141, 21, 3, 88, 169, 255, 141
1102 [131] 3, 221, 173, 2, 221, 9, 4, 141, 2, 221
1103 [131] 169, 0, 141, 1, 221, 173, 0, 221, 41, 251
1104 [131] 141, 0, 221, 169, 133, 133, 251, 169, 192, 133
1105 [131] 252, 169, 0, 133, 253, 133, 254, 96, 165, 254
1106 [131] 240, 5, 198, 254, 76, 88, 192, 164, 253, 177
1107 [131] 251, 230, 253, 201, 0, 240, 14, 32, 109, 192
1108 [131] 164, 253, 177, 251, 230, 253, 133, 254, 76, 49
1109 [131] 234, 169, 0, 32, 109, 192, 169, 49, 141, 20
1110 [131] 3, 169, 234, 141, 21, 3, 76, 88, 192, 72
1111 [131] 173, 0, 221, 9, 4, 141, 0, 221, 104, 41
1112 [131] 63, 141, 1, 221, 173, 0, 221, 41, 251, 141
1113 [131] 0, 221, 96, 35, 5, 26, 15, 38, 5, 49
1114 [131] 10, 42, 4, 1, 20, 16, 5, 23, 15, 33
1115 [131] 5, 22, 14, 62, 10, 1, 20, 49, 7, 43
1116 [131] 8, 1, 20, 7, 10, 42, 10, 13, 5, 49
1117 [131] 11, 57, 10, 1, 20, 0, 0
2000 [153]""
2010 [129]I[178]1[164]10:[153]"PRINT........................................";:[130]:[142]
3000 X[178]10:Y[178]0
3010 [151]214,X[171]1:[153]:[151]211,Y
3020 F[178][194](1024[170]X[172]40[170]Y):[151]1024[170]X[172]40[170]Y,F [176]128
3030 [161]A$:[139]A$[178]""[167]3030
3035 P[178]1024[170]X[172]40[170]Y
3040 [139]A$[178]" "[167]A$[178][196]([171]2)
3043 [139]A$[178]"INPUT"[167][158]49152:E$[178]"SPRACHSPEICHER SPRECHEN":[141]5000
3045 [139]A$[178]"DIM"[167][141]4040:E$[178]"SPEICHER ZEIGEN":[141]5000:[137]3000
3047 [139]A$[178]"READ"[167][153]:[141]2000:E$[178]"FELD LOESCHEN":[141]5000:[137]3000
3050 [139]A$[178]""[167][151]P,F:F[178][194](P):[137]3110
3055 [139]A$[178]"LET"[167]E$[178]"FILE ABSPEICHERN":[141]5000:[141]6000
3060 [139]A$[178]"CMD"[167][151]P,F:Y[178]Y[171]1:F[178][194](P):[137]3120
3070 [139]A$[178]""[167][151]P,F:X[178]X[170]1:F[178][194](P):[137]3200
3080 [139]A$[178]"ON"[167][151]P,F:X[178]X[171]1:F[178][194](P):[137]3200
3090 [139]A$[178][199](13)[167][151]P,F:[142]
3095 [139]A$[179][177]"0"[167][139][197](A$)[178]0[167]3030
3100 [151]P,[197](A$)[170]48:F[178][194](P)
3110 Y[178]Y[170]1:[139]Y[177]39[167]Y[178]Y[171]40:X[178]X[170]1
3120 [139]Y[179]0[167]Y[178]Y[170]40:X[178]X[171]1
3122 [137]3200
3125 P[178]1024[170]X[172]40[170]Y:F[178][194](P)
3130 [151]P,F [176]128
3140 [137]3030
3200 [139]X[179]10[167]X[178]10
3210 [139]X[177]19[167]X[178]19
3220 [137]3125
4000 Z[178][194](49155)[170]256[172][194](49156):E$[178]"FELD AUSWERTEN":[141]5000
4005 Z2[178]Z:A$[178]"":[129]I[178]10[172]40[170]1024[164]19[172]40[170]1024
4010 [139][194](I)[177]46[167]A$[178]A$[170][196]([194](I)[171]48):[137]4030
4015 [139]A$[179][177]""[167][139][197](A$)[177]255[167]A$[178]"1"
4020 [139]A$[179][177]""[167][151]Z2,([197](A$)[175]63):Z2[178]Z2[170]1:B$[178]A$:A$[178]""
4025 [139]B$[179][177]""[167][139]([197](B$)[175]63)[178]0[167]I[178]19[172]40[170]1024
4030 [130]:[151]Z2,0:[151]Z2[170]1,0
4035 :
4040 [153]"":Z[178][194](49155)[170]256[172][194](49156)
4060 [141]2000:[153]""
4070 [129]I[178]Z[164]Z[170]1000:[139][194](I[171]1)[178]0[167][139][194](I)[178]0[167]I[178]Z[170]1000
4080 A$[178][196]([194](I)):[139][197](A$)[179]10[167][153]"0";
4085 [153][201](A$,[195](A$)[171]1)".";
4090 [139][194](214)[179]19[167]4120
4100 [139][194](211)[179]79[167]4120
4110 [142]
4120 [130]:[142]
5000 [141]5005:[129]II[178]0[164][195](E$)[172]70:[130]
5001 E$[178]"                                   "
5005 [153]"";:[129]II[178]1[164]21[171]([195](E$)[173]2):[153]" ";:[130]
5010 [153]E$:[142]
6000 :
6010 [153]"OPENNAME DES SPRACHPROGRAMMS:DEF";:[160]1
6015 [159]1,0:[132]1,A$:[160]1:[153]
6020 [159]1,8,15:[159]3,8,3,"SP-"[170]A$[170]",P,W"
6030 [132]1,A:[139]A[178]63[167]E$[178]"DEN NAMEN GIBT ES SCHON!":[141]5000:[137]6000
6040 [139]A[177]19[167][139]A[179][177]73[167]E$[178]"DISKETTE PRUEFEN!":[141]5000:[137]6000
6050 [152]3,[199](0)[199](192);
6060 [129]I[178]49152[164]([194](49155)[170]256[172][194](49156))[170]400
6070 [152]3,[199]([194](I));:[130]
6080 [160]3:[153]"                                       ":[142]